home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / utilities / comsuite 95 / COMMSUIT / PRENAV.DB_ / PRENAV.DB
Encoding:
Text File  |  1996-01-23  |  796 b   |  17 lines
  1. Sub Main()
  2.  
  3.     Dim r as Integer
  4.     
  5.     Dim ReturnValue As Integer
  6.     Dim RuntimeValue As String
  7.     
  8.     Dim MySession As New Session
  9.  
  10.     r = MsgBox ("This session connects to the Symantec BBS and automatically downloads the latest virus signature files used with WinComm's virus detection during download.  Upon completion, remember to copy these files to your \Delrina\Common folder.", ebExclamation, "Important Information")
  11.     r = MsgBox ("This session is completely automated via a script. DO NOT press any keys while the script is executing.", ebCritical, "Automated Process")
  12.     r = MsgBox ("This is a long distance toll call."+Chr$(13)+Chr$(13)+"Do you wish to continue?"+Chr$(13)+" ", ebYesNo or ebExclamation, "Long Distance Call")
  13.     
  14.     if r = 7 then MySession.CloseSession
  15.  
  16. End Sub
  17.